約 2,005,072 件
https://w.atwiki.jp/pc-help/pages/16.html
Excelシート参照 別ブック(別ファイル)のシート参照ですが ファイル開いて、参照モードにして選択すればよいだけですが あえて関数に式を入れたい場合 ブック名シート名! セル シングルクォーテーションで囲えばよいです。
https://w.atwiki.jp/kplus/pages/49.html
Sub test() Dim con As ADODB.ConnectionDim rs As ADODB.Recordset Connection生成と接続文字列の設定Set con = New ADODB.Connectioncon.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=C \test.db" sqliteに接続con.Open select文発行Set rs = con.Execute("SELECT id,name FROM user;") 結果をセルに書き込むrs.MoveFirsti = 1Do Until rs.EOF = True Cells(i, 1).Value = rs.Fields(0).Value Cells(i, 2).Value = rs.Fields(1).Value rs.MoveNext i = i + 1Loop 接続を閉じるcon.CloseSet con = Nothing End Sub [参考元] Sqliteに接続＠Excelマクロ・VBAのお勉強 http //www.cocoaliz.com/excelVBA/index/61/
https://w.atwiki.jp/ohden/pages/395.html
Excel Excel 2007 Excel 2010 Excel for Office365 ※主にExcel for Office365を利用。 ～tools～ RelaxTools Application/Excel/tools/ ～tips～ Excel関数だけでフルパスからファイル名を取り出す Excelで日付を扱いたい Excelで時間を扱いたい オートシェイプの中の文字を検索したい 相対指定で任意のセルの値を取得したい 当該シートのシート名を取得したい VLOOKUPで正しい値を入力してもN/Aが表示される Wordの表をExcelにcopyしたい xls fileを開くだけで構成管理上で差分が発生する シート名一覧の取得 シーケンシャルな値(ID)を自動で採番したい 複数条件分岐の書き方 コンテキストメニューが出ない ※未解決 Application/Excel/tips/ ～memo～ 日付フォーマットで曜日を漢字で出力したい 元日付 書式 変換後 2011/11/11 yyyy"年"mm"月"dd"日("aaa")" 2011年11月11日(金) 更新日： 2021年10月13日 (水) 10時54分34秒 Excel-DNAとCSを使ってExcelの機能を追加できる Excel-DNAを使って関数を作る Excel-DNAを使ってC-Sharpで関数を作る Excel-DNAを使ってC-Sharpで作った関数をDLL化する -- (s1n) 2018-08-23 09 31 03 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/coraljapan/pages/32.html
2010年07月28日 (水) 10時07分59秒; EXCEL覚え書き EXCEL覚え書きクリックしたセルの色を変更する スクロール位置を先頭に戻す 印刷範囲を可変設定にする 相対パスで指定する ボタンの行位置を知る 自分自身を削除する。 フォルダ内のexcelファイルを検索する（サブフォルダも検索） セルがエラーかどうか調べる ユーザーフォームの表示位置を画面サイズの右側にする 定期的にマクロを実行する ファイルダイアログでファイル名を取得する 指定の表示形式を返す ファイルがあるかどうかチェックする 入力規則である条件では入力できないようにする 処理中にWAITを入れる VBAでファイルコピー、移動 VBAでホームページを開く ユーザーフォームのTextBox1にセットする ユーザーフォームと変数をやり取りする 他のブックのマクロを実行する 既存のブックをコピーする ブックを読み取り専用で開く 別のブックのセルの値を取得する（ユーザフォーム） アクティブなブックを閉じる ブックをアクティブにする ブックを保存する ブックを別名で保存する 他のブックのシートのセルの値を取得（リンク方式） 他のブックのシートのセルの値を取得 開いているブックを見えなくする 指定したブックが開いているか調べる エクセルを終了する 条件が一致したときのみ、コントロールを表示する ユーザーフォームにコンボボックスを作成する 乱数を発生させるマクロ ユーザーフォーム出現位置を設定する 覚えておくと便利なショートカットキーのこと CALL ステートメントと、引数 ２つのテキストファイルの比較 テキストファイルの内容をセルに読み込む マクロ 文字列をテキストファイルへ書き出す マクロ 処理実行中のカーソルを砂時計にする セルの値を簡易棒グラフで表示する エクセルで早口言葉？ ユーザーフォームのテキストボックス内での制御プロパティ ユーザーフォームのテキストボックス内で改行する。 Format関数 ユーザーフォームをモードレスで表示する ユーザーフォームで簡易プログレスバーをつくる。 DATEVALUE関数とTIMEVALUE関数 YEAR関数 実行中のマクロを強制終了する。 他のシートのセルの内容を取得する マクロ シートがアクティブになったら、指定したマクロを実行する。 曜日まで表示する表示形式設定 シート名一覧を取得するマクロ その２ データの最終行を知る マクロ フォルダのコピー マクロ 文字列の操作 選択したフォルダ内のファイル一覧を取得するマクロ ブックの共有操作のマクロ メッセージボックスのアイコン セル範囲指定で絶対的な座標で指定する メッセージボックスで改行する ステータスバーに表示するマクロ 実行中の自動計算をオフにするマクロ 実行中の画面の更新を無効にする 指定した文字列が含まれる行以外を削除するマクロ 24時間を越える場合のマクロでの記述 アクティブシートの名前を変更するマクロ アクティブブックのシートをコピーするマクロ ワークシートを別のBOOKへ保存するマクロ 「はい」「いいえ」ダイアログを表示するマクロ 複数条件のカウント SUMPRODUCT関数 その２ 複数条件のカウント SUMPRODUCT関数 シリアル値から日付データ「年」「月」「日」を取り出す 範囲内の最大値、最小値を求める BOOKを開いたら、マクロを自動で実行する ラベルへジャンプするマクロ アクティブセルの位置を調べるマクロ シートをアクティブにするマクロ ワークブックを開くマクロ アクティブセルの内容を取得するマクロ 指定したセルに値を代入するマクロ 指定範囲内のセルに値を代入するマクロ シート名の一覧を表示するマクロ セルにアクティブシート名を表示する 重複データを削除する 条件にあったものの合計 クリックした図形のセルの色を変えるマクロ セルに時間を記録するマクロ =COUNTIF関数 条件付書式 IF関数 セルのコピー＆貼り付け セル内の文字列をリスト形式で選択 クリックしたセルの色を変更する （シート内のModuleに） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveSheet.Rows.Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 15 End Sub （指定した行のみ動作させる） Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Row 4 Then Exit Sub ActiveSheet.Rows("4 104").Interior.ColorIndex = xlNone Rows(Target.Row).Interior.ColorIndex = 15 End Sub スクロール位置を先頭に戻す ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 印刷範囲を可変設定にする 1.メニュー＞挿入＞名前＞定義＞を選択する。 2.名前定義ダイアログで、Print_Areaを選択する。 3.参照範囲に「=OFFSET($A$1,0,0,COUNTA($A $A),100)」を入力する。 A列のデータ行の数によって、印刷範囲が可変する。 【OFFSET関数】OFFSET(基準, 行数, 列数, 高さ, 幅) 相対パスで指定する 変数 = ThisWorkbook.Path Workbooks.Open (変数 "\..\test.xls") ボタンの行位置を知る bt = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row 自分自身を削除する。 Sub test() With ThisWorkbook .Save .ChangeFileAccess Mode =xlReadOnly Kill .FullName .Close (False) End With End Sub フォルダ内のexcelファイルを検索する（サブフォルダも検索） Sub test() フォルダを検索してxlsファイル特定する Dim f, buf As String, cnt As Long, FSO Set FSO = CreateObject("Scripting.FileSystemObject") With Application.FileSearch .NewSearch .Filename = "*.xls" ファイル名 .LookIn = "D \data" フォルダ名 .SearchSubFolders = True サブフォルダも検索する If .Execute() 0 Then For Each f In .FoundFiles path_name = FSO.GetFile(f).ParentFolder パス file_name = FSO.GetFile(f).Name ファイル名 MsgBox path_name "\" file_name Next f End If End With Set FSO = Nothing End Sub セルがエラーかどうか調べる Set rg = Range("A1") If Application.WorksheetFunction.IsError(rg) Then 処理 End If ユーザーフォームの表示位置を画面サイズの右側にする Private Sub UserForm_Activate() Me.Left = Application.Left + Application.Width - Me.Width Me.Top = Application.Top + (Application.Height - Me.Height) / 2 End Sub 定期的にマクロを実行する 1秒ごとにA1に現在時刻を表示 OnTime開始 Sub timer_start() Application.OnTime Now + TimeValue("00 00 01"), "timer_start" Range("A1") = Now() End Sub OnTimeキャンセル Sub timer_stop() On Error Resume Next Application.OnTime Now + TimeValue("00 00 01"), "timer_start", schedule =False End Sub 10秒ごとに10回先まで予約 Sub test() For i = 1 To 10 Application.OnTime Now + TimeValue("00 00 10") * i, "my_Procedure" Next i End Sub Sub my_Procedure() MsgBox "きたー" End Sub ファイルダイアログでファイル名を取得する fname = Application.GetOpenFilename( _ Title ="取り込みファイルの選択") If fname = False Then Exit Sub Msgbox fname End If 指定の表示形式を返す Format(Now(), "yymmdd") ファイルがあるかどうかチェックする Sub filechk strWrk= ここにパス記入 strFile=ここはファイル名 If Dir(strWrk strFil) = "" Then MsgBox("ファイルありません") End If End Sub 入力規則である条件では入力できないようにする A1がバナナか、リンゴか、みかんのときで、なおかつ、B1が食べる以外のときは入力できないようにする。 データの入力規則で、 設定をユーザ定義 数式に、 =OR(AND(A1 "バナナ",A1 "リンゴ",A1 "みかん"),B1="食べる") 処理中にWAITを入れる Application.Wait [NOW()+"0 00 00.01"] 1/100秒停止 VBAでファイルコピー、移動 ファイルコピー Option Explicit Private Const cnsSOUR = "C \AAA\SAMPLE1.txt" 元ファイル Private Const cnsDEST = "C \BBB\SAMPLE2.txt" 先ファイル ファイルコピーのサンプル Sub COPY_SAMPLE() ファイルをコピー FileCopy cnsSOUR, cnsDEST End Sub パスを含めた名前で指定する。 ファイル移動（コピーして元ファイル削除） Option Explicit Private Const cnsSOUR = "C \AAA\SAMPLE1.txt" 元ファイル Private Const cnsDEST = "C \BBB\SAMPLE2.txt" 先ファイル ファイル移動のサンプル② Sub MOVE_SAMPLE2() ファイルをコピー FileCopy cnsSOUR, cnsDEST 元ファイルを削除 Kill cnsSOUR End Sub VBAでホームページを開く Sub Sample() Shell "EXPLORER.EXE http //google.co.jp/" End Sub ユーザーフォームのTextBox1にセットする UserForm1.TextBox1 = "てきすと" ユーザーフォームと変数をやり取りする 標準モジュールの先頭に、呼出し元のプロシージャとユーザフォームで共用したい変数名をPublicでセットします。 Public aaa, bbb Sub test() aaa = 3000 UserForm1.Show vbModeless MsgBox bbb End Sub Private Sub UserForm_Initialize() TextBox1.Text = aaa bbb = 500 End Sub 他のブックのマクロを実行する Application.Run "book1.xls!test" ※引数を渡す場合は、 Application.Run " book1.xls !test",aaa,bbb 例） 元ブック Workbooks.Open Filename =("sample.xls") hiki1 = "りんご" hiki2 = "おいしい" Application.Run "sample.xls!ringo", hiki1, hiki2 先ブック Sub ringo(hiki1, hiki2) With UserForm1 .TextBox1 = hiki1 .TextBox2 = hiki2 .Show End With End Sub 既存のブックをコピーする Sub bkcopy() wp = ThisWorkbook.Path Workbooks.Open Filename =(wp "\aaaa.xlsx"), ReadOnly =True Application.DisplayAlerts = False Workbooks("aaaa.xlsx").Activate ActiveWorkbook.SaveAs Filename =wp "\bbbb.xls" Application.DisplayAlerts = True ActiveWorkbook.Close End Sub ブックを読み取り専用で開く Workbooks.Open Filename =("BBB.xls"), ReadOnly =True 別のブックのセルの値を取得する（ユーザフォーム） Private Sub UserForm_Initialize() wp = ThisWorkbook.Path Workbooks.Open Filename =(wp + "\aaaa"), ReadOnly =True with Workbooks("aaaa.xlsx") msg = .Sheets(1).Range("a1") .Windows(1).Visible = True .Close End with TextBox1 = msg End Sub アクティブなブックを閉じる ActiveWorkbook.Close ブックをアクティブにする Workbooks("sample.xls).Activate ブックを保存する ActiveWorkbook.Save ブックを別名で保存する ActiveWorkbook.SaveAs "Sample.xls" 他のブックのシートのセルの値を取得（リンク方式） Range("a1") = "= " "c \" "[" "サンプル.xls" "]シート１ !" Range("a1") 他のブックのシートのセルの値を取得 Workbooks.Open Filename =("サンプル.xls"), ReadOnly =True Range("a1") = Workbooks("サンプル.xls").Sheets(1).Range("a1") ActiveWorkbook.Close 開いているブックを見えなくする Workbooks("aaaa.xlsx").Windows(1).Visible = False 指定したブックが開いているか調べる Sub Sample15() Dim wb As Workbook, flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xls" Then flag = True Next wb If flag = True Then MsgBox "開いています。" Else MsgBox "開いていません。" End If End Sub エクセルを終了する Application.Quit 条件が一致したときのみ、コントロールを表示する 例）ComboBox1が"あり"に選択のとき、ComboBox2を表示 Private Sub ComboBox1_Change() If ComboBox1 = "あり" Then ComboBox2.Visible = True Exit Sub End If End Sub ユーザーフォームにコンボボックスを作成する 1.ユーザーフォームにツールボックスからコンボボックスを作成する。 2.Initialize()にコンボボックスの文字列を羅列する。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "リスト１" .AddItem "リスト２" .AddItem "リスト３" .AddItem "リスト４" End With End Sub 乱数を発生させるマクロ Randomize rnd1 = Int(Rnd * 99999999 + 1) ※99999999は0～99999999の乱数 ユーザーフォーム出現位置を設定する Private Sub UserForm_Initialize() Me.StartUpPosition = 0 Me.Left = 20 Me.Top = 10 End Sub 覚えておくと便利なショートカットキーのこと その１ 現在日付を入力 〔CTRL〕+〔；〕 その２ 現在時刻を入力 〔CTRL〕+〔：〕 その３ 関数の引数を表示 〔CTRL〕+〔SHIFT〕+〔Ａ〕 たとえば、数式バーに=IFと入力してから、〔CTRL〕+〔SHIFT〕+〔Ａ〕と押すと、=IF(論理式,真の場合,偽の場合)と表示される。 その４ 書式のみのコピペ 〔CTRL〕+〔SHIFT〕+〔Ｃ〕書式のみコピー 〔CTRL〕+〔SHIFT〕+〔Ｖ〕書式のみペースト CALL ステートメントと、引数 他のマクロを呼び出すときに、変数を受け渡す場合は、以下を参考。 Sub test() Call メッセージ表示("あははは") End Sub Sub メッセージ表示(moji) MsgBox moji End Sub 複数受け渡す場合は、カンマで区切って列挙する。 Sub test() Call メッセージ表示("あははは", "いひひひ", "うふふふ") End Sub Sub メッセージ表示(moji1, moji2, moji3) MsgBox moji1 MsgBox moji2 MsgBox moji3 End Sub ２つのテキストファイルの比較 A.txtとB.txtを行ごとに比較します。 Sub 比較() Dim strREC_A As String Dim strREC_B As String Dim File_A As String Dim File_B As String Dim ForderPass As String Dim CT As Long ForderPass = ThisWorkbook.Path File_A = "\A.txt" File_B = "\B.txt" Open ForderPass File_A For Input As #1 Open ForderPass File_B For Input As #2 CT = 1 st If EOF(1) Or EOF(2) Then GoTo owari End If Line Input #1, strREC_A Line Input #2, strREC_B If strREC_A strREC_B Then MsgBox CT "行目 違う。" vbCrLf strREC_A vbCrLf strREC_B End If CT = CT + 1 GoTo st owari Close #1 Close #2 MsgBox "終了。" End Sub テキストファイルの内容をセルに読み込む マクロ Sub READ_TextFile() Const cnsFILENAME = "\sample.txt" Dim intFF As Integer FreeFile値 Dim strREC As String 読み込んだレコード内容 Dim GYO As Long 収容するセルの行 FreeFile値の取得(以降この値で入出力する) intFF = FreeFile 指定ファイルをOPEN(入力モード) Open ThisWorkbook.Path cnsFILENAME For Input As #intFF GYO = 1 ファイルのEOF(End of File)まで繰り返す Do Until EOF(intFF) 改行までをレコードとして読み込む Line Input #intFF, strREC 行を加算しA列にレコード内容を表示(先頭は2行目) Cells(GYO, 1).Value = strREC GYO = GYO + 1 Loop 指定ファイルをCLOSE Close #intFF End Sub 文字列をテキストファイルへ書き出す マクロ Sub WRITE_TextFile() Const cnsFILENAME = "\SAMPLE.txt" Dim intFF As Integer FreeFile値 Dim strREC As String 書き出すレコード内容 FreeFile値の取得(以降この値で入出力する) intFF = FreeFile 指定ファイルをOPEN(出力モード) Open ThisWorkbook.Path cnsFILENAME For Output As #intFF 内容をレコードにセット strREC = "test" レコードを出力 Print #intFF, strREC 指定ファイルをCLOSE Close #intFF End Sub 処理実行中のカーソルを砂時計にする Application.Cursor = xlWait 元に戻すには、 Application.Cursor = xlDefault セルの値を簡易棒グラフで表示する 以下の様な表示。 A列にパーセンテージを入力。 B列に■で棒グラフが作成される。 B列の関数 =LEFT("■■■■■■■■■■",TRUNC($A1/0.1)) ※条件書式で、100%を赤く設定してあります。 エクセルで早口言葉？ くだらなすぎ。（自爆） http //www29.atwiki.jp/coraljapan/?cmd=upload act=open page=EXCEL%E8%A6%9A%E3%81%88%E6%9B%B8%E3%81%8D file=20080217_hayakuchi.xls ユーザーフォームのテキストボックス内での制御プロパティ SelLength 選択されたテキストの文字数を設定します。 値の取得も可能です。 SelStart 選択されたテキストの開始点を設定します。 値の取得も可能です。テキストが選択されていないときは、 挿入ポインタの位置を示します。 SelText 現在選択されているテキストを含む文字列を設定します。 値の取得も可能です。文字が選択されていないときは、長さ 0 の文字列 ("") を返します。 例）TextBox1.SelStart = 0 カーソル位置を先頭にします。 ユーザーフォームのテキストボックス内で改行する。 EnterKeyBehaviorをTrueに設定します。 MultiLineもTrueに設定しておく必要があります。 Format関数 Format([値],"[書式設定]") 以下は書式設定 カンマ区切り ： #,##0 ： 1,234 ￥マーク入り ： \\#,##0 ： \1,234 単位付き ： #,##0\円 ： 1,234円 小数点桁数の指定 ： #,##0,0000 ： 1,234.5670 小数点桁数の指定２ ： #,##0,0### ： 1,234.567 日付の書式 ： YYYY/MM/DD HH NN SS ： 2002/11/28 10 18 30 YYYYMMDDをYYYY/MM/DD ： @@@@/@@/@@ ： 20021128- 2002/11/28 西暦を和暦 ： GGGEE\年MM\月DD\日 ： 2002/11/28- 平成14年11月28日 和暦を西暦 ： YYYY\年MM\月DD\日 ： 平成14年11月28日- 2002年11月28日 数値を曜日 ： AAAA ： 1- 日曜日 四半期を返す ： Q ： 2002/01- 1 郵便番号 ： @@@-@@@@ ： 2510871- 251-0871 左に0を充填 ： 00000 ： 123- 00123 左に半角スペースを充填 ： @@@@@ ： 123- 123 全部大文字 ： ： abc- ABC 全部小文字 ： ： ABC- abc 曜日：aaa：2003/01/30 - 木 カンマ区切りで0なら表示しない #,### 1234- 1,234 0- (表示しない) ユーザーフォームをモードレスで表示する UserForm1.Show vbModeless vbModelessをつけると、ユーザーフォームを表示しながら、セルの選択などができます。 ユーザーフォームで簡易プログレスバーをつくる。 １．Visual Basic Editerを開く。Alt+11 ２．メニューの挿入→ユーザーフォームを選択して、フォームを新規作成する。 ３．ツールボックスの、「ラベル」で以下のようにラベルを２つと、「コマンドボタン」でボタンを一つ作成する。 ４．作成したコマンドボタン上で右ボタンを押して、プロパティを表示して、Captionを「OK」に変更する。 ５．ユーザーフォームを選択した状態で、F7を押して、コードを表示する。 ６．表示されているコードをすべて削除して、以下のコードを入力する。 Private Sub UserForm_Activate() Label2 = "作業中です..." lb = "■" For i = 0 To 100 Label1 = lb DoEvents lb = lb + "■" ここから処理 For w = 1 To 10000 For x = 1 To 100 Next x Next w ここまで処理 Next i CommandButton1.Enabled = True Label2 = "完了しました。" End Sub Private Sub CommandButton1_Click() Unload Me End Sub ７．Visual Basic Editerを閉じる。 ８．新規マクロに以下を入力する。 Sub プログレス() UserForm1.Show End Sub ９.マクロ「プログレス」を実行する。 完成データ DATEVALUE関数とTIMEVALUE関数 指定された文字列からシリアル値を求めるものです。 例） TIMEVALUE（"6 0 0"） DATEVALUE（"2008/2/14"） YEAR関数 指定した日付の年を返します。 例）YEAR(Now()) 実行中のマクロを強制終了する。 Dos/V機 [CTRL]+[Break(Pause)] PC9800シリーズ [CTRL]+[STOP] 他のシートのセルの内容を取得する マクロ aaa=Worksheets("Sheet1").Range("A1") シートがアクティブになったら、指定したマクロを実行する。 Sub Auto_Open() Sheet1がアクティブになったら「Macro1」マクロ実行 Worksheets("Sheet1").OnSheetActivate = "Macro1" End Sub 曜日まで表示する表示形式設定 yyyy"年"m"月"d"日（"aaa"）" シート名一覧を取得するマクロ その２ Sub シート一覧() ct = 1 For I = 1 To Sheets.Count shname = Sheets(I).Name Cells(ct, 1) = shname ct = ct + 1 Next End Sub データの最終行を知る マクロ er = Range("A" 65536).End(xlUp).Row フォルダのコピー マクロ c \001の内容を%temp%\書庫へコピーします。 Sub FolderCopy() Dim SourcFolderSpec, DestFolderSpec, TempFolder As String Dim SourcFolder_Object, DestFolder_Object As Object Dim FileNamePath As Variant 環境変数TEMP を取得します TempFolder = Environ("temp") Source Folder をセットします SourcFolderSpec = "c \001" Destination Folder をセットします DestFolderSpec = TempFolder "\書庫" フォルダオブジェクトを取得 Set SourcFolder_Object = CreateObject _ ("Scripting.FileSystemObject").GetFolder(SourcFolderSpec) SourcFolderSpec内の全ファイルをDestFolderSpecにコピー サブフォルダも対象になります SourcFolder_Object.Copy DestFolderSpec MsgBox "完了しました" End Sub 文字列の操作 =LEFT(文字列,[文字数]) ：文字列の左端から指定した文字数だけ取り出す。 文字数を省略すると1を指定したことになります(1の時は省略できる)。 =RIGHT(文字列,[文字数]） ：文字列の右端から指定した文字数だけ取り出す。 文字数を省略すると1を指定したことになります(1の時は省略できる)。 =MID (文字列，開始位置,文字数) ：文字列の指定した位置から指定した文字数だけ取り出す。 =SEARCH(検索文字列,対象,開始位置) 文字列が開始位置から何番目にあるかを返します 英字の大文字と小文字を区別できませんが、ワイルドカード文字を使用できます。 =FIND(検索文字列,対象,開始位置) 文字列が開始位置から何番目にあるかを返します 英字の大文字と小文字を区別できる代わりに、ワイルドカード文字を使用することができません。 選択したフォルダ内のファイル一覧を取得するマクロ Sub ファイルリスト() Dim filename As String ファイル名 Dim DrvDir As String フォルダパス Dim rw As Long 行カウンタ Dim ShellApp As Object ShellApp Dim myFolder As Object フォルダ名 Set ShellApp = CreateObject("Shell.Application") Set myFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1) If myFolder Is Nothing Then Exit Sub DrvDir = myFolder.items.Item.Path "\" フォルダパスをセットする With Worksheets("Sheet1") .Range("A2 A65536").ClearContents 表示用のA列をクリア rw = 1 フォルダを検索してファイルとフォルダを特定する filename = Dir(DrvDir "*.*", vbDirectory) While filename "" 順にSheet1に書き出していく rw = rw + 1 .Range("A" rw) = filename filename = Dir(, vbDirectory) Wend End With End Sub ブックの共有操作のマクロ Sub ブックの共有を解除() ブックの共有を解除 Application.DisplayAlerts = False If ActiveWorkbook.MultiUserEditing Then _ ActiveWorkbook.ExclusiveAccess End Sub Sub ブックの共有をする() ブックの共有をする Application.DisplayAlerts = False ActiveWorkbook.KeepChangeHistory = True ActiveWorkbook.SaveAs Filename =ActiveWorkbook.FullName, _ AccessMode =xlShared End Sub メッセージボックスのアイコン vbCritical 警告メッセージ アイコン vbQuestion 問い合わせメッセージ アイコン vbExclamation 注意メッセージ アイコン vbInformation 情報メッセージ アイコン セル範囲指定で絶対的な座標で指定する INDIRECT("A1 A100")) このように設定すると、行が削除されてもA100は変化しない メッセージボックスで改行する MsgBox "これは" vbCrLf "ペンデス" ステータスバーに表示するマクロ Application.StatusBar = "リスト取得中です...(現在 " rw - 3 "件)" 実行中の自動計算をオフにするマクロ Application.Calculation = xlCalculationManual オンに戻すには以下のマクロ Application.Calculation = xlCalculationAutomatic 実行中の画面の更新を無効にする Application.ScreenUpdating = False 有効にするには、FalseをTrueです 指定した文字列が含まれる行以外を削除するマクロ Sub 行削除() Dim Rwe As Long Dim R As Long Dim delname As String delname = InputBox("検索対象を入力してください", "検索") If delname = "" Then MsgBox "検索を中断します", vbInformation, "検索" End End If Rwe = Range("B" 65536).End(xlUp).Row For R = Rwe To 1 Step -1 To 1では、１行目から検索します If Application.CountIf(Rows(R), "*" delname "*") = 0 Then =0 を 0にすると、検索対象がある行を削除します Rows(R).Delete End If Next MsgBox delname " 以外を除去しました", vbInformation, "検索" End Sub 24時間を越える場合のマクロでの記述 Sub 24over() RT = Int(Range("A1") * 24) " " Format(Range("A1"), "nn ss") MsgBox "経過時間は" RT "です。" End Sub アクティブシートの名前を変更するマクロ ActiveSheet.Name = シート名 アクティブブックのシートをコピーするマクロ Sheets("シート名").Copy シート４の後に追加コピー Sheets("シート名").Copy Before =Sheets(4) ワークシートを別のBOOKへ保存するマクロ あらかじめ、Bookと同じディレクトリに書庫というフォルダを作成しておいてください。 Sub 書庫へ保存() yesno = MsgBox("シートを保存します よろしいですか？", vbYesNo + vbQuestion, "進捗度表") If yesno = vbNo Then End End If wpath = ThisWorkbook.Path "\" パスを設定する sheetname = ActiveWorkbook.ActiveSheet.Name シート名を取得する datenow = Format(Now, "yyyymmdd") 日時を設定 savename = wpath datenow "_" sheetname ".xls" ファイル名設定 savename_msg = datenow "_" sheetname ".xls" 表示用ファイル名設定 Sheets(sheetname).Copy シートを新規ブックへコピー ActiveWorkbook.SaveAs Filename =savename 新規ブックを保存する ActiveWorkbook.Close 新規ブックを閉じる Application.DisplayAlerts = False 警告メッセージオフ Worksheets(sheetname).Delete Application.DisplayAlerts = True 警告メッセージオン MsgBox savename_msg vbCrLf "書庫へ保存しました", vbInformation, "シート保存" End Sub 「はい」「いいえ」ダイアログを表示するマクロ Sub 問い合わせ() yesno = MsgBox("シートを保存します よろしいですか？", vbYesNo + vbQuestion, "問い合わせ") If yesno = vbNo Then End End If End Sub 複数条件のカウント SUMPRODUCT関数 その２ =SUMPRODUCT((A1 A10= 初稿 *(MONTH(B1 B10)=3)*(ISNUMBER(FIND("出版",C1 C10))))) A1 A10が初稿で、B1 B10が3月で、C1 C10の文字列に”出版”という文字を含んでいるならカウントする （解説） ISNUMBER(セル番地または計算式） 参照しているセルが数値かどうか調べる。 数値なら TRUE (1) 数値でないなら FALSE (0) FIND(検索文字列,対象,開始位置) 参照しているセルの検索文字列の位置を調べる 含まれない場合は#VALUEとなる。 複数条件のカウント SUMPRODUCT関数 =SUMPRODUCT((A1 A10= 初稿 )*(MONTH(B1 B10)=3)) A1 A10が初稿でB1 B10が3月ならカウントする シリアル値から日付データ「年」「月」「日」を取り出す =YEAR(シリアル値) =MONTH(シリアル値) =DAY(シリアル値) 範囲内の最大値、最小値を求める 範囲内の最大値 =MAX(範囲) 範囲内の最小値 =MIN(範囲) 例） =MAX（A1 A5) =MIN(B1 B5) =MAX（A1 A5)-MIN(B1 B5) BOOKを開いたら、マクロを自動で実行する Sub Auto_Open() MsgBox "自動です" ここに必要な処理を記述します End Sub ラベルへジャンプするマクロ GoTo ラベル ラベル 例） Sub goto001() If ActiveCell.Value = True Then GoTo msg1 End If End msg1 MsgBox "Trueですよ" End Sub アクティブセルの位置を調べるマクロ 行位置 ActiveCell.Row 列位置 ActiveCell.Column シートをアクティブにするマクロ Worksheets("Sheet1").Activate ワークブックを開くマクロ Workbooks.Open Filename =ThisWorkbook.Path "ファイル名.xls" アクティブセルの内容を取得するマクロ bn = ActiveCell.Value 指定したセルに値を代入するマクロ A5に1を代入 Cells(5,1).Value=1 指定範囲内のセルに値を代入するマクロ A1 C5の範囲に1を代入 Range("a1 c5").Value=1 シート名の一覧を表示するマクロ Sub ListSheetsName() Dim objSheet As Object Dim intLoop As Integer intLoop = 1 For Each objSheet In ActiveWorkbook.Sheets Cells(intLoop, 1).Value = objSheet.Name intLoop = intLoop + 1 Next End Sub （補足） Cells(intLoop, 1).Value = objSheet.Name を Cells(intLoop, 1).Value = objSheet.Range("A1") にすると、参照シート内のA1の内容を持ってこれる。 セルにアクティブシート名を表示する =MID(CELL("filename"),FIND("]",CELL("filename"))+1,31) 重複データを削除する （A1セルにフィールド見出し、A2 A10セルに9個のデータが入力されているときに、重複データを削除した新たなリストをC列に作成する例） メニュー［データ］－［フィルタ］－［フィルタオプションの設定］をクリック ↓ ［フィルタオプションの設定］ダイアログで ［抽出先］欄で［指定した範囲］オプションボタンをOnに ［リスト範囲］欄で「A1 A10」セルを ［抽出範囲］欄で「C1」セルを ［重複するレコードは無視する］チェックボックスをOnに 設定 ↓ ［フィルタオプションの設定］ダイアログ－［OK］ボタンをクリック 参考 http //pc.nikkeibp.co.jp/article/NPC/20060214/229243/ サンプル http //www29.atwiki.jp/coraljapan/?cmd=upload act=open page=EXCEL%E8%A6%9A%E3%81%88%E6%9B%B8%E3%81%8D file=%E6%8A%BD%E5%87%BA.xls 条件にあったものの合計 =SUMIF(B1 B4,"りんご",C1 C4) B1~B4のりんごに該当するもののみ、C1~C4の合計を計算 クリックした図形のセルの色を変えるマクロ 以下のマクロを、セル上の図形に登録する。 Sub iro001() Dim button As Range セル位置取得 button Set button = ActiveSheet.Shapes(Application.Caller).TopLeftCell セル位置 0,0の色を変更 With button.Offset(0, 0).Interior .ColorIndex = 10 .Pattern = xlSolid End With End Sub セルに時間を記録するマクロ A2が開始なら、B2に現在時刻を返す。 A2が終了なら、C2に現在時刻を返す。 Sub jikankiroku() If Range("A2").Value = "開始" Then Range("B2") = Now() End If If Range("A2").Value = "終了" Then Range("C2") = Now() End If End Sub =COUNTIF関数 =COUNTIF(A1 A10,"合格") A1～A10までのセルに「合格」が何個存在するか返す。 =COUNTIF(A1 A10,"合格")+COUNTIF(A1 A10,"不合格") とすると、合格+不合格の合計数が何個あるか返す。 条件付書式 セルの内容によって、書式を変化させる。 例）セルの値が”合格”なら、セルパターン＝赤色、文字色＝白 IF関数 =IF(A1="","",IF(A1 50,"○","×")) A1が空白なら、空白。 空白以外なら、A1 50をチェック。 50以上なら○ 50以下なら×。 セルのコピー＆貼り付け セルが別のセルを指している時に そのセルを別の位置にコピーすると、移動した分だけ指していた位置まで移動してしまう。 これを移動させず、指している位置が変わらないままにするには、変えたくない行・列には「$」を前につけて、「$A$1」といった指定をする。 参考http //www.ne.jp/asahi/hishidama/home/tech/excel/cellcopy.html セル内の文字列をリスト形式で選択 １ ［▼］を押して選択するためのリストを別の場所に作成。 ２ ドロップダウンリストを表示させたいセルを選択して、メニューバー［データ］から［入力規則］をクリック。 ３ ［設定］タブの［入力値の種類］で［リスト］を選択し、［元の値］に文字カーソルを移します。 ４ ドロップダウンリストの元となる、欄外に入力したデータを範囲選択する。 ５ ［ＯＫ］を押す。 参考http //kokoro.kir.jp/excel/nkisoku_list.html
https://w.atwiki.jp/tfcfuji/pages/52.html
EXCELですべてのシート名の一覧をマクロで作成するには下記のマクロをEXCELファイルに追加する Sub シート一覧() Dim i As Long For i = 1 To Sheets.Count Range("A" i).Value = Worksheets(i).Name Next i End Sub
https://w.atwiki.jp/kuroneko-tei/pages/21.html
黒猫語録 Ｗｉｋｉ練習企画。量がたまったら五十音順等に整理します。 ネタがあったらドンドン登録してみよう！ 既に登録されているものでもコメントの追加は自由です！ 以下テンプレ↓ 登録する言葉【よみ】分類 説明文 いわゆるテンプレ。(投稿者名省略可) ←この点を入れて追記すると、こんな感じ。(しゃると) ↓上に戻るリンク。コピペ推奨。(しゃると) ▲ よっぱー【よっぱー】挨拶 黒猫チャットの公式挨拶。 …にしようと極一部がたくらんでいるらしい。最近は挫折気味。 ▲ ラグ【らぐ】一般 一般的には通信環境等の差に起因するタイムラグの事を指す。 某一部のＰＬがチャット中にＲＯやってる事を言ってる訳じゃない。 ▲ 猫が【ねこが】一般 チャット中猫に邪魔される事。 意味不明の文字の羅列も。 ▲ ￥【】注意 日本の通貨単位。 黒猫チャットで「長文を打ち込みします」という意味にしたいな。 長文が終わったときは「以上」とか付けるとなお良し ▲ 元禄異怪見聞録【げんろくいかいけんぶんろく】企画 アルターラインの平安に対抗して江戸で。 独り妄想激しく渦巻きちぅ。 GMはシモーヌ武井様希望。 ▲ ダイスの神様【だいすのかみさま】ＴＲＰＧ全般 物語の行方はダイスの神様ＳＨＩ・ＤＡ・Ｉ（はぁと どうやらＣＧＩにも神様はいるようだ（虹色の酒参照） ▲
https://w.atwiki.jp/fieds_labo2/pages/91.html
Excel2007 Windows7のEXCEL2007でVBAを動かすとすごく遅いです。 設定変更で快適にw 元々はWin2000とEXCEL2000の時につくられたEXCElVBAのバッチ処理。 Windows7とEXCEL2007で動かすとPCがかなりスペックアップしたのにもかかわらず、５倍？ぐらい遅いです。 最近、前より遅くなったって。 そしてエラー終了するようになったりと。 VBAとかわからないのに、見てくれと言われましたh 遅過ぎて動作確認も大変です。 どうしたものか？ ちょっとずつTimerではかって改善策を考えよー で、部分部分を計っていくと、あれ？遅くない？ バッチ処理してもサクサク動きます。 なんで？ よくわからないけど、大丈夫なんじゃ？ 動作確認環境で問題無いので、実機で動作確認しようとすると、やっぱり遅いです。 なんで？ 長い前振りw これって、既出？ VBAの高速化でググっても出てこなかったです。 USキーボードを追加する キーボードをENに切り替える バッチ処理実行 サクサク動きますw OS EXCEL 対処 XPSP3 2007 不要。サクサク動きます Win7 2007 USキーボード追加 Win7 2010 USキーボード追加 2010も同じでした。
https://w.atwiki.jp/restinpiece/pages/16.html
Excel⇒HTML変換表 Excel⇒HTML変換表 べた打ちでExcellを書くには.... a タグ ASPからExcelを出力する際に必要なヘッダー フォントフォントサイズ 斜体 太字 フォントの種類 フォントサイズ 高さ・幅高さ指定 幅指定 セルセルの書式のフォーマットの指定 セルの結合 セルの背景色を指定する 折り返し禁止 縮小して全体を表示 垂直表示 文字の傾き セルの文字色の変更 セルに罫線を引く 斜めに罫線を引く セルに数値をセットする パーセンテージ 出力結果 インデント 位置 下線 べた打ちでExcellを書くには.... ①基本はHTMLで書けばいける ②たまにHTMLで書けないMS独自仕様がある a タグ HTMLの a タグと同じです。 セル内の値に使用すれば文字にリンクが張られる。 ASPからExcelを出力する際に必要なヘッダー Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "content-disposition","inline; filename=xxxxx.xls" フォント フォントサイズ font-size [数値]pt; 斜体 font-style italic; 太字 font-weight 700; フォントの種類 font-family "ＭＳ Ｐゴシック", monospace; http //www.htmq.com/style/font-family.shtml フォントサイズ font-size [数値]pt; http //www.htmq.com/style/font-size.shtml 高さ・幅 高さ指定 mso-height-source userset; 高さを指定する際にTR内のStyle内に記述し、、styleのheightで高さを指定する 幅指定 mso-width-alt 不明、幅の指定をしたときに勝手にできる。 mso-width-source userset; 幅を指定する際にテーブル内の COL 内のstyleに記述し、styleのwidthで幅を指定する セル セルの書式のフォーマットの指定 mso-number-format mso-number-format \@ テキスト形式 mso-number-format "0\.000" 3桁数値 mso-number-format \#\,\#\#0\.000 3桁カンマ区切り数値 mso-number-format "mm\/dd\/yy" 日付 mso-number-format "d\\-mmm\\-yyyy" その他日付 mso-number-format Percent セルの結合 colspanとrowspanです。HTMLのテーブルと一緒です。 セルの背景色を指定する mso-pattern auto [網掛設定]; background [色]; 網掛設定で使用できる種類。何かしら指定しないと背景色の指定ができないので注意してください。 折り返し禁止 white-space normal; http //www.htmq.com/style/white-space.shtml 縮小して全体を表示 mso-text-control shrinktofit; 垂直表示 layout-flow vertical; 文字の傾き mso-rotate [数値]; セルの文字色の変更 color [色] セルに罫線を引く 通常のstyleのボーダ指定と同じ。 (例) border .5pt solid; border 1.0pt solid; border 2.0pt double; 上下左右ごとの指定も可能 border-top 1.0pt solid ; border-right none; border-bottom 2.0pt double; border-left 4.0px solid;} 斜めに罫線を引く mso-diagonal-up .5pt solid windowtext; 左から右に上昇するからUP mso-diagonal-down .5pt solid windowtext; 左から右に下降するからDOWN セルに数値をセットする x num="(式)" 実数 出力結果 x num="111" パーセンテージ 出力結果 x num="0.15" 15% インデント mso-char-indent-count [数値] 数字に記入した数値量分インデントされる 位置 text-align [位置] 位置に記入されたところにセルの値が寄せられる left, center, rightに寄せられる。 下線 text-decoration underline; text-underline-styleを指定しない場合はデフォルトのsingleが表示される text-underline-style [線];
https://w.atwiki.jp/xxxstfxxx/pages/47.html
ゲームの情報まとめに利用するツールだったり。 ハイパーリンクを一括削除 参考リンク ハイパーリンクを一括削除 ほとんどのページが、テーブルで段組をしている。 秀丸に貼り付けても編集が面倒なので、 Excelに貼り付けるがリンクが邪魔になる。 １．適当なセルに半角数字「1」を入力。 ２．上記のセルをコピー。 ３．ハイパーリンクを削除したいセルを範囲指定する。 ４．右クリック- 形式を選択して貼り付け。 ５．貼り付け「全て(A)」、演算「乗算(M)」を選択し「OK」ボタン 参考リンク [[]] url タグ：Excel 最終更新：0000年00月00日00時00分00秒.. 上へ https //www14.atwiki.jp/xxxstfxxx/ 編集権： 合計： - 今日： - 昨日： - トップページの合計： - 関連してるかもニュース 「近似曲線」の描画は簡単！でも、その信頼性は？ - 作り方で変わる！Excelグラフ実践テク(35) - マイナビニュース 構造化Excelテク：目視前提で省略された項目名を補完して、表を構造化データにする - ITmedia エクセル2022年春コスメ「リップケア ブラー」リップクリーム＆下地になるマルチリップ - Fashion Press CData、ヤフー・データソリューション向けのデータコネクタを提供（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース Excelワークシートへの入力だけでクオリティーの高いチラシや資料の作成ができる新サービス「One to One セールスチラシ」の提供を12月1日に開始 - valuepress Excelなどの現場のデータを収集して全社で可視化するクラウドサービス - 日経 xTECH Active 【Excel】エクセルでピボットテーブルの列幅がリセットされる！ 見やすい幅で固定する方法 - 窓の杜 Excel関数ベースのローコード言語「Power Fx」がオープンソースに - ビジネス＋IT ［Ctrl］、［Shift］、［Alt］、［Windows］の4キーを同時に押すとどうなる？（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース 見やすい文書を作るのに、無駄にSpaceキーを使う必要なし！ 職場で困らないWord術｜NIKKEI - 日本経済新聞 意外と難しい「見やすい散布図」の作り方 - 作り方で変わる！Excelグラフ実践テク(34) - マイナビニュース エクセル 冬限定の美容液仕立てスキンケアパウダー、化粧持ち＆スキンケア効果UPで今年も登場！美容オイルinの香り豊かなメイクアップフィクサーも限定発売 - PR TIMES じつは見込みあり？「エクセルデータ破壊おじさん」との付き合い方（PHPオンライン衆知（THE21）） - Yahoo!ニュース - Yahoo!ニュース 「エクセル」のデザインがいきなり変わってビックリ！ ～「Office」の新デザインが展開中（Impress Watch） - Yahoo!ニュース - Yahoo!ニュース 業務効率爆上げの｢Excelハック｣を学べる！ Udemy珠玉のオンライン講座 - Lifehacker JAPAN Excelのカスタマイズ ビュー を提供する機能がアップデート - マイナビニュース Excelのクイックアクセスツールバーを見逃すな、左端最上席を簡単カスタマイズ - ITpro 【Excel】エクセルの関数で2つの日付間を計算する方法 - 窓の杜 Excelファイルを複数人で編集したいなら「Teamsの併用」が合理的な理由 - TechTargetジャパン 11月の月例セキュリティ更新が公開、Excelの脆弱性がすでに悪用されているので注意を｜マイクロソフト | トレンドマイクロ is702 - インターネット・セキュリティ・ナレッジ マジ「Excelができる」は神スキルだからと、Excelのスキルをまとめたツイートが話題！ (2021年11月14日) - エキサイトニュース ゼロからはじめるExcel VBA＋Webサービス(2) 通勤経路から運賃を自動で取得してみよう【駅すぱあとWebサービス】 - マイナビニュース 構造化Excelテク：数式を含む表を数値としてコピーする際にセルの書式設定も反映する - ITmedia Excelの文字位置、ちょっとした配慮で緩みのないカッコイイ表を作れる - ITpro 【Excel】エクセルでおせっかいなオートコンプリートをOFFにする方法 - 窓の杜 Excel 2021では、「並び替えミスで表を破壊」が防げる新関数が！フィルター/ソート/抽出の新関数はこう使おう！ - 窓の杜 Excelで図形に入れるテキスト、不本意な改行を防いでキレイに収める - ITpro Microsoft Excel、新しいJavaScript API導入で独自のカスタムデータ型 - マイナビニュース Microsoft、「Context IQ」やExcelの「JavaScript API」などの「Microsoft 365」新機能を発表（ITmedia NEWS） - Yahoo!ニュース - Yahoo!ニュース 【Excel】エクセルの名簿で氏名の後ろに「様」を追加する方法 - 窓の杜 「Excel」のLET関数は“複雑な数式”を“人が読める式”に変えられる！ 「Office 2021」新搭載の謎関数を攻略 - 窓の杜 ヒートマップ図面をExcelで作成するには？ - 作り方で変わる！Excelグラフ実践テク(30) - マイナビニュース エクセルで描いた3D「カービィ」が話題、きっかけは“パソコン使えない上司”への救いの手 - ORICON NEWS 【Excel】エクセルで住所から都道府県名を一括抽出するテク - 窓の杜 知識ゼロでも基礎から学べる ビジネス Excel VBA入門 - nikkei BPnet Excelで丸バツを使わないチェックリスト、スマートかつ素早くセルを塗って識別 - ITpro 【Excel】コピペ後に表示されるボタンが邪魔！ エクセルの貼り付けオプションをオフにする方法 - 窓の杜 【Excel】いつものフォント、フォントサイズを標準テンプレートに登録、毎度の無駄作業を省く - ITmedia ExcelとWordの連携、データはExcel側でササッと並び替える - ITpro 「Excel 4.0」マクロがとうとうデフォルト無効に ～誕生から30年、マルウェアの温床化 - 窓の杜 いまだExcelファィルに頼る建築業界にGraneetは財務管理SaaSを提供する - TechCrunch Japan 【Excel】「外部ソースへのリンク」エラーの対処方法と発生させないための対策 - ITmedia Excelで四半期計算、日付から「第 四半期」を特定する - ITpro 【Excel】数式不要で計算結果がわかる！ エクセルのセルを選択するだけのステータスバーの活用法 - 窓の杜 ExcelでTEXT関数を有効活用、日付と文字列をそのまま結合できる - 日経 xTECH Active 「Office 2021」が発売 ～XLOOKUPなど新しいExcel関数も多数導入 - 窓の杜 Excelの本当に正しい使い方｜日経の本 日経BP - nikkei BPnet Excel構造化テク：単位などの文字列混入で泥沼化しているセルを数値のみにする - ITmedia 即効！ 仕事に役立つ関数ワザ！ Excel 365/2019/2016/2013対応 - nikkei BPnet 【Excel】データの順番をすばやく入れ替えたい！ エクセルの切り取りと挿入をドラッグ＆ドロップで行うテク - 窓の杜 GAFA部長直伝！ パソコンスキルが身につかない2大理由（Excelマクロ編） - ダイヤモンド・オンライン Office 2021がWindows 11と同じ10月5日より提供開始。Excelに「XLOOKUP」実装など - PC Watch Excel最大行（100万行）の壁を軽々超える方法 - ITmedia 【Excel】一瞬で文字列を分割・結合！ エクセルで作業効率を上げるフラッシュフィルの使い方 - 窓の杜 【Excel】エクセルの「SUMIF」関数で条件ごとに売上金額を集計する方法 - 窓の杜 ゼロからはじめるExcel VBA＋Webサービス(1) ニュースフィードを読んでみよう【マイナビニュース】 - マイナビニュース Excelシートからコピペした画像がボケボケ!? シートからオリジナル画像を抽出するテクニック - ITmedia 「早く知りたかった」「便利すぎて泣く」 Excelの“自動入力ショートカットキー”が話題に（ねとらぼ） - Yahoo!ニュース - Yahoo!ニュース 【Excel】そっくりなExcelブックを簡単比較：Spreadsheet Compareアプリの使い方 - ITmedia 構造化Excelテク：複数のデータが含まれたセルを1セル1データに分割する - ITmedia 構造化Excelテク：セルの結合を使わずに複数セルの中央に文字列を表示する - ITmedia 【Excel】組織図を効率よく作りたい！ エクセルで簡単に概念図を作成するテク - 窓の杜 Excelの数式言語がチューリング完全に - InfoQ Japan 窓辺の小石(22) オンライン版Excelを使う - マイナビニュース 【Excel】1つひとつ手入力していない？ エクセルの名簿でフリガナを簡単に入力するテク - 窓の杜 データ利活用を支援するExcelアドイン「セルフETLアシスタント」、複数ファイルのマージを可能に - クラウド Watch 【Excel】エクセルのXLOOKUP関数とテーブル機能を組み合わせると作業効率がアップ！ - 窓の杜 「Excel」でMapやReduceなどが利用可能に～ラムダを引数にとる7つの関数がテスト導入 - 窓の杜 Excel×Python逆引きコードレシピ126｜日経の本 日経BP - nikkei BPnet エクセルがいきなり速くなる応用ショートカット19選 - ダイヤモンド・オンライン 初心者でも簡単理解！ Excelマクロで「データ入力ボタン」を作る方法 - ダイヤモンド・オンライン ショートカットキーで時短仕事術(10) Excelのブックを開く・保存・閉じるのショートカットを覚えよう - マイナビニュース 【Excel】VLOOKUP関数はもう古い！ XLOOKUP関数なら簡単に大量のデータから必要な情報だけ転記できます - impress.co.jp 【Excel】数式は正しいはずなのになぜ？ よくある「#VALUE!」エラーの原因と解決法 - 窓の杜 【Excel】「納期を絶対忘れないプロジェクト表」をエクセルで作るには - 窓の杜 Excel風UIのフリーCSVエディタ「CSV＋」登場 MacやLinuxにも対応 - ITmedia モダンExcel入門｜日経の本 日経BP - nikkei BPnet エクセルの神が教える「始点の切り替え」テクニックとは？ - ダイヤモンド・オンライン 「Excel」の「VBA」でこれができるの？ ワークシート上で動く虫眼鏡のデモがすごい - 窓の杜 【Excel】表を「テーブル」にするだけで作業効率がアップ！ エクセルの3つのテクを活用するだけです - 窓の杜 “Excelのeスポーツ世界大会”で8人のトップ財務モデラーが腕を競う - PC Watch エクセルが劇的に速くなる「急がば回れ」テクニックとは？ - ダイヤモンド・オンライン 【Excel】オートフィル使いこなせてる？ エクセルで明日から使えるオートフィルの技2選 - impress.co.jp Web版Excel、業務自動化スクリプトに対応 - PC Watch 【Excel】数が多すぎて目的のシートを開けない！ エクセルでシートの目次を作成する方法とは - 窓の杜 初心者でもわかるExcelマクロ入門！ セルの内容が条件になる繰り返し処理をマスター - ダイヤモンド・オンライン 【Excel】セル内の文字がなぜか大きくできない！フォントサイズ設定が反映しない原因と対策 - 窓の杜 【Excel】曜日のベタ書きはダメ！ユーザー定義の表示形式を使えば日付の後に表示されます - 窓の杜 【Excel】アンケートフォームの回覧・共有とサヨナラ！ エクセルとMicrosoft Formsで調査を楽にするテク - 窓の杜 Excelのステータスバーで素早く合計などを確認する - ITmedia 新入社員は｢Excelを覚える｣が即戦力の近道だ - 東洋経済オンライン Excelデータ分析術 | 特集 | 週刊東洋経済プラス - 週刊東洋経済プラス Excel関数ベースのプログラミング言語「Microsoft Power Fx」登場 オープンソースで公開予定 - ITmedia Excelのその使い方、間違ってませんか？ 総務省の統一ルールに学ぶ、Excelへの正しいデータ入力方法6選 - 文春オンライン 違いが分かるExcel使いになるための「マクロの保存方法3種」 - ITmedia プログラミング不要でRPA、「マクロの記録」機能でExcelを自動化する - ITmedia 【Excel】数式の入力効率を大幅アップするショートカットキー - ITmedia 【Excel】マウスドラッグより超便利な「表」選択ショートカット集 - ITmedia 【Excel】よくやる操作をキー一発で可能にする方法（クイックアクセスツールバー編） - ITmedia 【Excel】今日の日付や現在時刻をショートカットで素早く入力する - ITmedia
https://w.atwiki.jp/kojintekinawiki/pages/26.html
EXCEL豆知識 EXCELで共有設定にしていると、他人の「表示しない」「再表示する」操作は反映されない。 最初からの罫線（薄いやつ）の表示の仕方/消し方 ページレイアウト＞枠線＞表示(チェックを外す) または 該当箇所を指定＞右クリック＞セルの書式設定＞塗りつぶし＞背景色(色なし)＞OK 行の高さがめちゃめちゃになる現象の治し方 [Excelのオプション]＞[詳細設定] ＞ [挿入したオブジェクトをセルと共に切り取り、コピー、並べ替えを行う]にチェック。 フッターに章番号入れる方法。 ページ番号挿入。←でうまくいかない場合 挿入＞参照＞相互参照で入れる。あと整形。 フッターに各種情報挿入 [パス] [ファイル名] [シート名] [日付] [時刻] [ [ページ番号] / [総ページ数]] 日付表示を文字列整形する 日付⇒文字列 =IF(ISNUMBER($C$20),TEXT($C$20,"YYYYMMDD"),"YYYYMMDD") 文字列⇒日付 =IF(ISNUMBER($C$20),DATEVALUE(TEXT($C$20,"0000!/00!/00")),"YYYYMMDD") シート名をセルに =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1))) ミリ秒の書式 yyyy/mm/dd hh mm ss.000 最後に登場する「\」より手前の文字列を取得する =LEFT(A1, FIND("*", SUBSTITUTE(A1, "\", "*", LEN(A1) - LEN(SUBSTITUTE(A1, "\", ""))), 1) - 1) 最後に登場する「\」から先の文字列を取得する 空白考慮なし =RIGHT(A1, LEN(A1) - FIND("*", SUBSTITUTE(A1, "\", "*", LEN(A1) - LEN(SUBSTITUTE(A1, "\", ""))))) 空白考慮あり =IF(F3="","",RIGHT(F3, LEN(F3) - FIND("*", SUBSTITUTE(F3, "\", "*", LEN(F3) - LEN(SUBSTITUTE(F3, "\", "")))))) 新規のブックのシート数を変更する。 ファイル＞オプション＞基本設定＞新しいブックの作成時＞ブックのシート数 アニメーションを無効化する ファイル＞オプション＞簡単操作＞操作の結果のオプション＞□操作をアニメーションで表示する 更新日時 2018年12月23日 (日) 15時57分28秒 ここを編集